home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / rtgi.zip / TESTUNIT.DFM / TESTUNIT.txt
Text File  |  1995-09-03  |  2KB  |  121 lines
  1. object Form1: TForm1
  2.   Left = 246
  3.   Top = 148
  4.   ActiveControl = ComboBox1
  5.   AutoScroll = False
  6.   Caption = 'Form1'
  7.   ClientHeight = 216
  8.   ClientWidth = 414
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   Scaled = False
  15.   OnCreate = FormCreate
  16.   TextHeight = 13
  17.   object Bevel1: TBevel
  18.     Left = 240
  19.     Top = 96
  20.     Width = 57
  21.     Height = 57
  22.     Style = bsRaised
  23.   end
  24.   object Label2: TLabel
  25.     Left = 264
  26.     Top = 104
  27.     Width = 6
  28.     Height = 13
  29.     Caption = '0'
  30.   end
  31.   object Label3: TLabel
  32.     Left = 264
  33.     Top = 136
  34.     Width = 6
  35.     Height = 13
  36.     Caption = '0'
  37.   end
  38.   object Panel1: TPanel
  39.     Left = 0
  40.     Top = 0
  41.     Width = 414
  42.     Height = 81
  43.     Align = alTop
  44.     TabOrder = 0
  45.     object Label1: TLabel
  46.       Left = 16
  47.       Top = 48
  48.       Width = 82
  49.       Height = 13
  50.       Caption = 'Name  ID column'
  51.     end
  52.     object Label4: TLabel
  53.       Left = 16
  54.       Top = 16
  55.       Width = 111
  56.       Height = 13
  57.       Caption = 'Name table to save IDs'
  58.     end
  59.     object Edit1: TEdit
  60.       Left = 152
  61.       Top = 48
  62.       Width = 145
  63.       Height = 20
  64.       TabOrder = 1
  65.     end
  66.     object ComboBox1: TComboBox
  67.       Left = 152
  68.       Top = 16
  69.       Width = 145
  70.       Height = 20
  71.       ItemHeight = 13
  72.       TabOrder = 0
  73.     end
  74.   end
  75.   object Button1: TButton
  76.     Left = 72
  77.     Top = 96
  78.     Width = 161
  79.     Height = 25
  80.     Caption = 'Show New ID Value'
  81.     Font.Color = clBlack
  82.     Font.Height = -11
  83.     Font.Name = 'MS Sans Serif'
  84.     Font.Style = [fsBold]
  85.     ParentFont = False
  86.     TabOrder = 1
  87.     OnClick = Button1Click
  88.   end
  89.   object Button2: TButton
  90.     Left = 72
  91.     Top = 128
  92.     Width = 161
  93.     Height = 25
  94.     Caption = 'Show Current ID Value'
  95.     Font.Color = clBlack
  96.     Font.Height = -11
  97.     Font.Name = 'MS Sans Serif'
  98.     Font.Style = [fsBold]
  99.     ParentFont = False
  100.     TabOrder = 2
  101.     OnClick = Button2Click
  102.   end
  103.   object Database1: TDatabase
  104.     DatabaseName = 'TEST'
  105.     LoginPrompt = False
  106.     Left = 16
  107.     Top = 176
  108.   end
  109.   object RtDbGenID1: TRtDbGenID
  110.     OnAccessClose = True
  111.     Table = Table1
  112.     Left = 80
  113.     Top = 176
  114.   end
  115.   object Table1: TTable
  116.     DatabaseName = 'TEST'
  117.     Left = 48
  118.     Top = 176
  119.   end
  120. end
  121.